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LIBSDATE_TIME 16-Sep-1984 00:47:33 AX=11 Bliss-32 V4.0-74 S 1 ] 
1 “$201 9K 99:40:82 CYARTL SRETL1BDATEST 88251 we el ) 

MODULE LIBSDATE_TIME ( ! Date and time routine ’ 

IDENT = '1-008' ! File: LIBDATETI.832 Edit: RKR1008 : 


)s 
BEGIN 


ESET ESISTIT IIIT ITT rir iii ri iii iit titi titi i TTT iti i titititiiitfy 
'@ Y 
‘e COPYRIGHT (c) 1978, 1980, 1982, 1984 8 * 
'® DIGITAL Seer enes EORPORATION, MAYHARD. MASSACHUSETTS. « 
> ALL RIGHTS RESERVED. * 
' 7 
'® THIS ee IS A gt hn UNDER A LICENSE AND MAY BE USED AND ig ht * 
' ONLY IN ACCORDANCE WITH THE TERMS OF SUCH pint AND WITH THE * 
'@ INCLUSION OF THE oo Spi d ha NOTICE. THIS SOFT ARE OR ANY OTHER * 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
'® OTHER PERSON. NO. TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
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'® TRANSFERRED. 


:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
:: oORPORAT ioe NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


i@ DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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ee 
! FACILITY: General Library Support 
i ABSTRACT: 


1 
5 
5 
; 
8 
5 
5 


This module contains a routine that returns the date and time 
in VAX/VMS format in a user-provided string. 


' 
1 
7 
f 
‘ 
' 
i 
1 
ENVIRONMENT: VAX=-11 User Mode 

AUTHOR: John Sauter, CREATION DATE: 16-FEB-1979 

; MODIFIED BY: 

i 1 = Original. JBS 16-FEB-1979 

: : JBS Sal mAy- -1979 

; Change call to STRSCOPY. JBS 16-JU 

! - Correct an error in a comment. 3 + 30-JUL-1979 

: 5- 183 #8-Jan~ ores is urn codes to LIBS return codes. 

i 1-006 - Change ce att nl STRSCOPY_DX to LIBSSCOPY_DXDX6. 

' eliminates the need for a handler and the need to 
: change 3 ares 5 gggtuses to LIBS statuses. 

' 

a 

i 


i 1-007 - Change mene of r required file from "STRLNK.REQ' to 
' RTILIN:STRLNK’ as it should be. RKR 31-AUG-1981 


. 1 

: ' :. peenee LIBSS and OTS$S to STRS 
1 
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} 1-008 = Change to do copying with LIBSSCOPY_R_DX6. RKR 18-NOV-1981 


!<BLF /PAGE> 


Visontes1 6$2;1 


seed 


M 6 
4-608 =" 1e-Sep-1986 12:98:86 EMTartu sReScieoatéri 682: 


; 63 06g 1! 

: 64 1 ! SWITCHES: 

. 65 ¢ : ! 

; 89 66 | SWITCHES ADDRESSING MODE 

; o8 ' (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
; a , 1! 

: f} ty ! LINKAGES: 

: 7 2 2 REQUIRE "RTLIN:STRLNK’; 

> o 3 1 { TABLE OF CONTENTS: 

; 60 1_ 

; 78 61 1 FORWARD puri 

; 6 8 $6 ! LIBSDATE_TIME; ! Return date and time 
: Hi 0264 1! 

: 8¢ 0265 : INCLUDE FILES: 

> 84 6 $9 1° 

3 o2 8 $8 ! REQUIRE 'RTLIN:RTLPSECT'; ! Macros for defining psects 
87 0364 1 LIBRARY ‘RTLSTARLE'; ! System symbols and macros 
RB RT 

3 4 t5t4 ; MACROS: 

zm: O86) 1 | NONE 

: 9 $396 1! 

HY Be b3e) ! : EQUATED SYMBOLS: 

Bo) Bl) om 

; 98 0375 PSECTS: 

; 19 0377 ' DECLARE _PSECTS (LIB); ' Declare psects for LIB$ facility 
; 10 0379 | OWN STORAGE: 

; 10 038i 1! NONE 

; 105 0 § 1! 

: 196 ; \ : EXTERNAL REFERENCES: 

: 108 i oe 

- % ; 1 EXTERNAL ROUTINE 

; 139 } LIBSSCOPY_R_DX6 : STRING_JSB; ! Copy string 

: 11 1 !+ 

3 118 eS \ : The following error codes are used by this module 

> 115 9 De 

; 118 95 1 EXTERNAL LITERAL 

Z 143 $93 ' LIBS_STRTRU; ! string truncated 


N 6 
chat 1e788b=1882 99:58:83 | HANSA eS Fe te 9T 680.4 Page 3 
: ! 


; } 9 96 ! GLOBAL ROUTINE LIBSDATE_TIME ( Return date and time 

; 1 ¢ a8 ! RESULT_ADDR ! Descriptor of user's string 
: 124 4 1 )3ss8 

; 125 rit 1 

3 § 106 1 'e¢ 

3 : 8 ri Z ! FUNCTIONAL DESCRIPTION: 

: 129 Be 13 Return the system date and time, using the caller's semantics 
3 } . 188 ; for his string. 

; ; 408 | FORMAL PARAMETERS: 

: 1 0410 1! RESULT_ADDR.wt.dx Address of the descriptor into which 
3 : 5 bet3 : the system date and time is written. 
Ee $618 1 | IMPLICIT INPUTS: 

; 138 0414 1! 

3; 139 0415 1! NONE 

; 140 pe38 . % 

3; «6141 041 1 ! IMPLICIT OUTPUTS: 

3 16g 0418 1! 

3; «614 0419 1! NONE 

3 «61446 0420 1! 

3 6145 0421 1 ! COMPLETION CODES: 

3; 146 04 ¢ 1! 

3 «147 04 1! SS$_NORMAL Procedure successfully completed 

3 i Bs : : LIBS_STRTRU Success, but source string truncated 

: 150 0426 1 | SIDE EFFECTS: 

s 151 0427 1! 

; 136 0428 1! Requests the current date and time from VAX/VMS. 

- Te 34 1! 

3 61546 0430 1 !-- 

; 6155 ett 1 

; 156 04 ¢ BEGIN 

3s 157 043 

: 158 0434 OCAL 

3; 159 0435 DATE_TIME_BUF : VECTOR [42 qv"). 

> 160 0456 BUFFER_DESC : BLOCK C8, BYTE); 

183 be38 5 ts 

: 183 0459 ' Construct a static descriptor to receive the date and time from 
A 188 rr : VAX/VMS. 

; 166 44g " BUFFER_DESC COSC$W_LENGTH] = 24 

: 16 4 BUF FERDESC DSC$B-DTYPE] = DSC$K_DTYPE_T; 

: 168 444 BUFFER_DESC LDSC$B_CLASSJ = DSCS$K_CLASS_S; 

3 199 $2 BUFFER_DESC CDSCSA_POINTER) = DATE_TIME—BUF ; 

: 171 <3 1+ 

3 176 73 : Invoke the system service to fill the local buffer. 

: Ho} sit SASCTIM (TIMLEN = BUFFER_DESC, TIMBUF = BUFFER_DESC); 

: 1% 452 2 !¢ 


7 
1E-Sep-1964 00:47:55 YAKcI1 BLisgoZ vé.0-742, 


{ IBSDATE TIME 


s 177 453 ! Copy the returned string to the user's string, observin 
: 178 : ¢ ; the senentics of his string class. ss 
: 1 4 § : RETURN ( LIBSSCOPY_R_DX6 ( .BUFFER_DESC COSC$W_LENGTH] 
: 18] 4 DATE_TIME_BUF, .RESOLT_ADDRS ) ; 
; 188 25 END; ! end of LIBSDATE_TIME 
~ 
; -TITLE LIBSDATE_TIME 
-IDENT \1-008\ 
-EXTRN LIBSSCOPY_R_DX6 
~EXTRN LIB$_STRTRU, SYSSASCTIM 


-PSECT _LIBSCODE,NOWRT, SHR, PIC,2 


" 00000 ENTRY yg) ata Save R2,R3,R4,R5,R6 
5E . 4 t4 SUBL2 #48, SP 
010E0018 8F DD 0000 PUSHL  #17694744 
04 AE 08 AE E 000 MOVAB DATE _TIME_BUF, BUFFER_DESC+4 
7E 7C 0001 CLRQ =(SPJ 
08 AE OF B60, PUSHAB BUFFER_DESC 
OC AE 9F 0001 PUSHAB BUFFER_DESC 
000000006 00 04 FB 00018 CALLS #4, SYSSASCTIM 
51 08 AE 9E O0001F MOVAB DATE TIME BUF, R1 
26 04 AC b° Boss MOVL RESUCT_ADBR, R2 
6F C 00027 MOVZWL BUFFER_DESC, RO 
000000006 00 16 pooen JSB LIBSSCOPY_R_DX6 
04 00030 RET 
3; Routine Size: 49 bytes, Routine Base: _LIBSCODE + 0000 
; «(186 60 1 
; «185 461 1 END ! end of module LIBSDATE_TIME 
: 186 pees 1 
3; «187 04635 0 ELUDOM 
; PSECT SUMMARY 
3 Name Bytes Attributes 
:  LIBSCODE 49 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
Library Statistics 
creceeee Symbols -------- Pages Processing 
Total Loaded Percent Mapped Time 
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~8255$DUA28 : CSYSLIBISTARLET.L32;1 9776 9 0 581 00:00.7 


COMMAND QUALIFIERS 
BLISS/CHECK= (FIELD, INITIAL ,OPTIMIZE) /NOTRACE/LIS=L1S$:LIBDATET1/0BJ=0BJ$:LIBDATET! MSRC$:LIBDATETI/UPDATE=(ENHS$:LIBDATETI 


pizes 49 code + 0 data bytes 
un Time 0:03.1 
pk Time: 0:18.4 


Lines/CPU Min: 901 

Lonense/ Pu “Min: 33136 
er Used: 46 pages 

Compilation Complete 
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